open(SNP,"ori_eQTL_results_R_cis.txt");
$k = 0;
$fline=<SNP>;
chomp($fline);
$fline=~ s/\"//g;
@fline = split("\t",$fline);
$fline= $fline[0]."\t".$fline[1]."\n";
$t =1;
$file = "$t.txt";
$t++;
open(WRBUFF,">./ORI/$file");
print WRBUFF $fline;
while($line=<SNP>)
{
	chomp($line);
	$line=~ s/\"//g;
	@line = split("\t",$line);
	$line= $line[0]."\t".$line[1]."\n";
	if($k == 1000000)
	{	
		print "$t\n";
		$file = "$t.txt";
		$t++;
		open(WRBUFF,">./ORI/$file");
		print WRBUFF $fline;
		$k =0;
	}
	print WRBUFF $line;
	$k++;
}
